home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 20 / Tiger_Disk_020_19xx_Tiger-Crew-Disk_de_Side_A.d64 / simon's bas._joy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  555b  |  17 lines
  1. 5 print"[147]"
  2. 6 D#"simon's basic joystickabfrage"
  3. 7 print
  4. 10 x=Dq
  5. 20 if x=128then print"[147]":printD(17,5)"[158]feuer":printD(17,7)x
  6. 25 poke646,1
  7. 30 if x=  1then print"[147]":printD(17,8)"oben":printD(18,10)x
  8. 40 if x=  2then print"[147]":printD(25,10)"rechts oben":printD(29,12)x
  9. 50 if x=  3then print"[147]":printD(28,15)"rechts":printD(30,17)x
  10. 60 if x=  4then print"[147]":printD(25,19)"rechts unten":printD(30,21)x
  11. 70 if x=  5then print"[147]":printD(17,18)"unten":printD(18,20)x
  12. 78 if x=  6then print"[147]":printD( 5,18)"links unten":printD(9,20)x
  13. 80 if x=  7then print"[147]":printD( 8,15)"links":printD(9,17)x
  14. 90 if x=  8then print"[147]":printD( 5,10)"links oben":printD(9,12)x
  15. 100 if x>128then printD(12,22)"+feuer";x
  16. 110 goto 10
  17.